RRRRRRRRRRRR 
RRRRRRRRRRRR 
RRRRRRRRRRRR 
RRR ° 
RRR 

RRR 

RRR 

RRR 

RRR 
RRRRRRRRRRRR 
RRRRRRRRRRRR 
RRRRRRRRRRRR 
RRR ~=RRR 
RRR = RRR 
RRR = RRR 
RRR RRR 
RRR RRR 
RRR RRR 
RRR 

RRR 

RRR 


Bie LR tal 


Ager A NR: Rae ILENE ak : es 


$i 

Sy! 

NT! 

NT! 

NT! 

NT! 

NT! 

NT! 

MMM MMP SSSSSSSSSSSS NT! 
MMM MMM SSSSSSSSSSSS NT! 
MMM MMM SSSSSSSSSSSS NT! 
HM MPA ME MM SSS NT! 
MMMM MM SSS NT! 
MMMMMM  MMMMMM SSS NT! 
MMM MMM) «6OMMM «SSS NT! 
MMM MMM MMM SSS NT! 
MMM MMM MMM «SSS NT! 
MMM MMM SSSSSSSSS NT! 
MMM MMM SSSSSSSSS NT! 
MMM MMM SSSSSSSSS NT! 
MMM MMM SSS NT! 
MMM MMM $$$ NT! 
HMM MMM SSS NT! 
MMM MMM SSS NT! 
MMB MMM $$$ NT! 
MMM MMM $ss NT! 
MMM MMM SSSSSSSSSSSS NT! 
MMM MMM SSSSSSSSSSSS | NTS 
MMM MMM SSSSSSSSSSSS NTS 
NT! 

NT! 

NT! 

NT! 

| NT! 

| NT! 

| NT! 

NT! 


**F LLE**1D**RM3XSUMO 


RRRRRRRR MM mn 333333 XX  §S$SSSSSS$_UU uu MM mm 000000 
RRRRRRRR MM KM 3333 XX XX — SSSSSSSS UU UU MM mM 000000 
RR RR MMMM MMMM 33 XX XX $$ UU UU MMMM 00 
RR RR MMMM MMMM 33 XX XX $5 UU UU MMMM MMMM 00 00 
RR RR MM MM MM XX XX §§ UU UU MM MM 00 00 
RR RR MM MM MM | om Um UU UU MM MM MM 00 00 
RRRRRRRR MM MM 33 XX SSSSS$ UU UU mM 00 00 
RRRRRRRR MM MM XX SSSSSS_ UU UU MM MM 00 00 
RR RR KM MM 3 XX XX S$ UU UU MM mM 00 00 
RR RR mM mM 5X MX S§ UU UU MM mM 00 00 
R RR MM MM 33 XX XX SS UU UU MM mM 00 00 mee 
RR RR MM mM 33 33 xx XX S§ UU UU MM MM 00 00 nn 
RR RR MM WN 333333 XX XX $SSSSSSS  _UUUUUUUUUU MM mM == 000000 sre 
RR RR MM mM = «4333 XX XX SSSSSSSS  UUUUUUUUUU MM mM = G00000 sited 
LL HII SSSSSSSS 
LL HII! SSSSSSSS 
LL II Ss 
LL II $5 
LL II 38 
tL II SS 
tL II SSSSSS 
LL 1] SSSSSS 
LL 1] aS 
LL 1] SS 
LL II SS 
LL II $§ 
LLLLLLLLLL §=sEIIIIJ «= SSSSSSSS 
LLLLLLELLKE CSE «= SSSSSSSS 


RM3XSUMO 1}. p- 138% 09: he:38 VAX-11 Bliss-32 Eat fy Page 
14-Sep-1984 01:46 DISKSVMSMASTER: CRMS.SRCJRM3XSUMO.B32; 1 (1 
MODULE RM3XSUMO SLANGUAGE yoredgsee? ’ 
‘s 


sot 

; 4 004 1 BEGIN 

; 5 005 1! 

b § Boos : ‘Sagan nahin ini detainee tana 
3 \* ® 
3 8 0008 1 !* COPYRIGHT (c) 1978, 1980, 1982, 1984 BY * 
: 9 0009 1 !* DIGITAL EQUIPMENT EORPORATION, MAYNARD, MASSACHUSETTS. * 
; + Bois } i. ALL RIGHTS RESERVED. * 
Py ; * 
A \¢ og 1 !e at SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
; 1 01 1 Ie Y IN ACCORDANCE WITH UCH LICENSE AND WITH THE * 
: 14 014 1 !* | ELuS ON OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
3 15 0015 1 !* COPIES THEREOF Y NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
: 16 8018 1 !e Q ERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY ¥ 
: i oot8 : :* TRANSFERRED. * 
3 ‘@ ® 
: 19 0019 1 !* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
; 20 0020 1 !* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
A 5 ons) : * CORPORATION. * 
3 if * 
; 23 0038 1 !* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
: 24 0024 1 !* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 
2 0025 1 !« * 
>; 26 0026 1 !* * 
4 e7 0027 1 Va ee eRe REAR eeeeeeeeee es LARRAAAAAALALALAALALALELAAELARLEAASEERE RARER SASS SO 
; 2 0028 1 

: 4 ih 9 1 44 

3 0 0030 1! ; : 

.— ae 0031 1 ! FACILITY: RMS32 index sequential file organization 

3 3 O08 1! 

3 3 003 1 | ABSTRACT: 

; 0034 1! 

; 0035 1! Fills im the SUMMARY XAB 

; 0036 1! 

0037 1! 

; 0038 1 | ENVIRONMENT: 

. 0039 1! 

:; 40 0040 1! VAX/VMS operating system 

3; 6] 0041 1! 

; 42 nh 4 1 !-- 

, & 0043 (1 

: 44 Bhd 1! 

; 45 045 1 ! AUTHOR: BOUSQUET 

> (46 0046 1 | CREATION DATE: FpeduLe 78 16:40 

; 67 047 1! 

: 48 0048 1! 

3 49 0049 1 ! MODIFIED BY: 

; = 050 1! 

Ps ae jie EE. v03-003 MCNO002 aria del C. Nas 05-Apr-1983 

; 26 02g ! Routine RMSXSUMO™ ote fh its own Linkage to preserve R4. 

: «(4 bee 1! v03-002 MCNO001 Maria del C. Nasr 31-Mar-1983 

> i be? ' Reorganize linkages 

5 2§ a7 1! v03-001 KBT0290 Keith B. Thompson 23-Aug-1982 


MO 
v04-000 


BBP EEE PANINI NI SIA A AAA AAAOOUN 


GOOoooCooCooooooooooooooooooocoo 
WONAUE WN OO FWP (CO OONOUS WOOO 


Reorganize psects 
VO2-004 REFORMAT D M WALP 24=JUL-1980 


v02-003 CDS0001 C D SAETHER 13=MAR-1980 
return OK_NOP alt success if block i/o 


REVISION HISTORY: 


Wendy Koenig, 24-0CT-78 14:03 
X0002 = make changes caused by sharing conventions 


! 
! 
i 
i 
! 
' 
i 
i 
1 
i 
! 
leanne 
LIBRARY ‘RMSLIB:RMS'; 
REQUIRE ‘RMSSRC:RMSIDXDEF'; 
define default psects for code 
PSECT 

CODE = RMSRMS3(PSECT_ATTR), 

PLIT = RMSRMS3(PSECT_ATTR); 
Linkages 


LINKAGE 
L_XSUMO; 


V4.0-76 p 2 
a KMS SRCIRMSXSUMO.B3204°° (15 


————---——} 


RM3XSUMO 


kK 2 
16-Sep-1984 02:12:58  VAX*11 Bliss-32_v4.0-74 5 
v0%-000 en eeen tee PSibei28 | Web nGhASteaccene sacSamsxsumo.es20%°” «23 


CALLING SEQUENCE: 


4 9 GLOBAL ROUTINE RMSXSUMO3 (XAB, FLAGS) : RLSXSUMO = 
§ 144 
90 ' 
4 2 FUNCTIONAL DESCRIPTION: 
9 
9 3 This subroutine fills in the various fields in the summary xab 
2 28 by extracting info from the IFAB. 
9 60 It also makes certain that there is wis one summary XAB and if 
9 61 not jumps to an error routine in XAB_SCAN via a bliss/mars interface 
o¢ routine. 
6 
64 
o2 
69 


BSBW RMSXSUMO3 
INPUT PARAMETERS: 


i 

i 

i 

i 

i 

i 

i 

i 

i 

i 

i 

i 

i 

i 

i 

i 

} 

‘ R3 = (XAB), XAB address 

R4 = (flags), to make sure this is the only SUMMARY XAB 
amPLICE INPUTS: 

AMAX] 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 


NUM_KE 
PLG_VE 
BIOJ - 


- number of areas 
YS] = number of keys 
R] - prologue version 

open for block i/o if set 


OUTPUT PARAMETERS: 
NONE 


IMPLICIT OUTPUTS: 
SUMMARY XAB fields filled in and RMSERR(IMX) status code 


pA + hat tet te etet RRP PN RP WN 


ee ee ee ed ed ed ed od od = SS od wd = od) 2d 8d wd = 8 dd 8 8 wd 8 Sw I 
NOU EWN — SSS AP UNH SOONOOR UNIO Ob 


fo J 
ee we mw www aloo lola lola lola lal an law fw ala fn lala lelolololololelolololelolelelololelelololelelolelelololololo) 
Ronoronononononononony 2 2 2 a 


ee ee ee ee S) 


BES FWUWWWIWIWIWIWIWIINIDNINININININIDINID 2 2 2 OS SS S OOOO OCOCOCOCO 


ROUTINE VALUE: 
NONE 
9 SIDE EFFECTS: 
9 NONE 
9 
9 a aiaadl 
9 
5 BEGIN 
138 } define common registers 
00 EXTERNAL LITERAL 
3 1 XBC$C_OPNSUM3; 
0 4 EXTERNAL REGISTER 
1 4 COMMON_FAB_STR; 
g 2 nap 


Be Se Se Se Se Se Be Se Se Se Se Se Se Se Se Se Se Se Ge Ge Se Ge Se Ge Se Ge Ge Ge Ge Ge Ge Ge Se Ge Ge Ge Se Ge Se Se Ge Se Fe Ge Ge Ge Fe Ss Ge Fe See Se Se Se ssas 


2 
vORn 800” 18-60-1984 93:bF;28  SISCSUMGMASTER SEAMS SRCSRMSXSUMO.B3209%" (25 
FLAGS : BITVECTOR (32), 
XAB : REF BBLOCK; 
just to make sure this has indexed file organization 
Hag 1FABCIPESE ORGCASES EQL IFBSC_1DX 
BEGIN 
don't do anything if this is block i/o 
IF .IFABCIFB$V_B10) 
RETURN RMSSUC(OK_NOP) ; 


have a duplicate SUMMARY XAB =- error 


—_— 
™ 
y+) 


al pPLAGSL NOTES SPEIRS 
RETURN RMSERR(IMX) 
- BEGIN 
else set the flag 
FLAGSCXBCS$C_OPNSUM3) = 1; 
fill in the fields of the xab from the ifab 
XABCXAB$B_NOAJ “TFABELE BSB AMAX]; 


XABLXABSB-NOK] = .IFABLIFBSB-NUM KEYS); 
KABCXABSU-PVN] = .1FABCIFBSB_PLG_VER); 


PARED & 


o 


END; 
RETURN RMSSUC(SUC); 
END; 


SOOOCCOCOCOSOOCOCOCOCCSOOOOCOO COCO OOOOOOOOOOOOOOoOoOoOO 


RIPIDPYAIPYNININIPYPNINYININININIDPININIPIPYPYIPYIPIPIPIPIPIPIPYINIPIPIPIPIP PIPPIN 


HERES FS FAWN AWWA RIPONPIPNINPYNYINI DN) 2 2 PO OO Oe en OOO 
Ai FWD $9 OONAUES WN OC OONOUES WN S(O CONOU SW O0On 


—NVNNVNVUWE EE ERE E EEE PWS WWW Ionononunund 
m --=— 


ib a a a ed a ns ot 8 ts ts a st ts 9) as 4 2 > os 


OOOO N NNN NN NSO O 


-TITLE RM3XSUMO 
-IDENT \V04-000\ 


-EXTRN XBCS$C_OPNSUM3 
-PSECT RMSRMS3,NOWRT, GBL, PIC,2 


A 1 RMSXSUMO3:: 
= = en “9 Oe 35(1FAB), #2 > 0212 
06 22. AA 38 1¢ rite ta #5, 34(1FAB), 1$ > 0218 
50 8059 HF 5 a MOV ZUL Wesaeh. RO : $338 
06 08 AE 000000006 8F £1 00011 1$: BBC #XBC$C_OPNSUM3, FLAGS, 2$ > 0225 
5 0 HH Fe SOTA MOVZWL #34156, RO : 0227 


M 56 
RM3XSUMO 16-Sep-19 VAX=11 s-32 V 5 
v04-000 19-8 Sep aets 6: bf32 DISK$V mT TER: cng? See RM3XSUMO. B32. 7% 025 
0 1F RSB : 
00 08 A 000000906 BF E 6 " a8: BBSS § #XBCSC_OPNSUM3, FLAGS, 3$ : 0235 
5 4 AE D $: MOVL xAB RO : 0237 
08 A 00B1 CA : 0 MOVW  177CIFAB), 8(RO) : 
A A 00B7 cA 00 MOVZBW 183(IFAB). 10(RO) + 0239 
5 1 DO 00039 4s: OVL #1, RO + 0244 
05 0003¢ RSB + 0246 


; Routine Size: 61 bytes, Routine Base: RMSRMS3 + 0000 


3; «184 0247 1 

3; 389 0246 1 END 

; «186 0249 1 

s Wr 0250 0 ELUDOM 

H PSECT SUMMARY 

: Name Bytes Attributes 

:  RMSRMS3 61 NOVEC,NOWRT, RD, EXE,NOSHR, GBL, REL, CON, PIC,ALIGN(2) 
3 Library Statistics 

Deh eeeee Sie tee ee re Syabols eo------ Pages Processing 

3 File Total Loaded Percent Mapped Time 

: ~$255$DUA28 : CRMS.OBJIRMS.L32;1 3109 27 0 154 00:00.4 

3 COMMAND QUALIFIERS 

3 BLISS/CHECK=(FIELD, INITIAL ,OPTIMIZE)/LIS=LIS$:RM3XSUMO/OBJ=OBJ$:RM3XSUMO MSRC$:RM3XSUMO/UPDATE=(ENHS$: RM3XSUMO) 
3; Size: 61 code + 0 data bytes 

3; Run Time: 0:03.0 

; Elapsed Time: :09.0 

3 Lines/CPU Min: 00 

3 Lexemes/CPU-Min: 13140 


nonery Used: 40 pages 
5 


Compilation Complete 
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